home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 10 / 9 / DISK1095.ZIP / CUSTINFO.PRG < prev    next >
Text File  |  1980-01-01  |  2KB  |  67 lines
  1. * CUSTINFO -- BUILT FROM MENUSKEL, SKELETON MENU PROGRAM
  2. * SETUP MENU
  3. * OPERATOR ACTION WILL BE ALPHA CHARACTER
  4. * OUTER DO ALLOWS RETURN TO THIS MENU FROM LOWER LEVEL MENU
  5. *
  6. SET HEADING OFF
  7. SET SAFETY OFF
  8. SET STATUS OFF
  9. DO WHILE (1=1)
  10. SET TALK OFF
  11. SET BELL OFF
  12. CLEAR ALL
  13. STORE " " TO OPINPUT
  14. *
  15. *===============================START MODS: 1================================*
  16. * SET LEFT AND TOP MARGINS FOR MENU
  17. STORE 20 TO LEFTMARG
  18. STORE  3 TO TOPMARG
  19. *==================================END MODS==================================*
  20. *
  21. *
  22. *===============================START MODS: 2================================*
  23. * SET HIGHEST OPTION LETTER, THEN PROVIDE HEADING AND OPTION LABELS
  24. DO WHILE OPINPUT<"A".OR.OPINPUT>"G"
  25.    CLEAR
  26.    @ TOPMARG,LEFTMARG+3 SAY "SMITH'S BIKEWORKS INFORMATION SYSTEM"
  27.    @ TOPMARG+2,LEFTMARG+5 SAY ">> Customer Information System <<"
  28.    @ TOPMARG+4,LEFTMARG SAY "A. Customer File MAINTENANCE"
  29.    @ TOPMARG+5,LEFTMARG SAY "B. Print CUSTOMER REPORT"
  30.    @ TOPMARG+6,LEFTMARG SAY "C. Print MAILING LABELS "
  31.    @ TOPMARG+7,LEFTMARG SAY "D. Generate FORM LETTER File"
  32.    @ TOPMARG+8,LEFTMARG SAY "E. CUSTOMER File CLEAN UP"
  33.    @ TOPMARG+9,LEFTMARG SAY "F. Move PURCHASE AMOUNTS Back a Year"
  34.    @ TOPMARG+10,LEFTMARG SAY "G. Return to SYSTEM MENU"
  35.    @ TOPMARG+12,LEFTMARG+3 SAY "Press Letter Matching Desired Option ";
  36.      GET OPINPUT
  37. *=================================END MODS===================================*
  38. *
  39.    READ
  40.    STORE UPPER(OPINPUT) TO OPINPUT
  41. ENDDO
  42. *
  43. *==============================START MODS: 3=================================*
  44. * PROVIDE DO FILE NAME FOR EACH CASE REPRESENTING ONE OF THE MENU OPTIONS
  45. DO CASE
  46.    CASE OPINPUT="A"
  47.       DO CUSTMNT
  48.    CASE OPINPUT="B"
  49.       DO CUSTREPT
  50.    CASE OPINPUT="C"
  51.       DO LABELS
  52.    CASE OPINPUT="D"
  53.       DO NAMESOUT
  54.    CASE OPINPUT="E"
  55.       DO CREPACK
  56.    CASE OPINPUT="F"
  57.       DO PURCHUPD
  58.    CASE OPINPUT="G"
  59.       RETURN
  60. *=================================END MODS===================================*
  61. *
  62.    OTHERWISE
  63.       CANCEL
  64. ENDCASE
  65. * REDISPLAY MENU
  66. ENDDO
  67.